home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Zone Tutorial / Structure Examples / 6. Zonedm < prev    next >
Lisp/Scheme  |  1998-10-26  |  982b  |  53 lines

  1. ; ZONEDM -  zone support function example + the use of list.
  2.  
  3. (setq tonal (activate-tonality (dorian c 3)))
  4.  
  5. (setq theme '(a b d c))
  6. (setq var1 '((a b d c) (= a b c) (d e f -b)))
  7.  
  8. (setq t1 '(a b d c))
  9. (setq t2 '(= a b c))
  10. (setq t3 '(d e f -b))
  11. (setq t4 '(a (-1 b) b c))
  12.  
  13. (setq var1a (list t1 t2 t3 t4)) ; a very important example!
  14.  
  15. (setq rhy1 '(1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16 
  16.              1/8 1/8 1/16 1/8 1/16))
  17. (setq rhy2 '((1/16 1/16 1/16 1/16) 
  18.              (-1/16 1/16 1/16 1/16)
  19.              (1/8 1/8 1/16 1/8 1/16)))
  20.  
  21. (setq dyn1 '(70 67 65 60 10 60 65 67 75 70 85 95 100))
  22. (setq dyn2 '((70 67 65 60) (10 60 65 67) (75 70 85 95 100)))
  23.  
  24. (def-symbol
  25.   bass var1a
  26.   perc (pick-drum ("club:strange" 0.45 a b c b a d))       
  27. )
  28.  
  29. (def-length
  30.   bass rhy2
  31.   perc '(1/16)
  32. )
  33.  
  34. (def-velocity
  35.   bass dyn2
  36.   perc dyn1
  37. )
  38.  
  39. (def-zone
  40.   bass '(2/1 2/1 4/1 4/1)
  41.   perc '(12/1)
  42. )
  43.  
  44. (def-tonality
  45.   bass tonal
  46.   perc mt-32
  47. )
  48.  
  49. (compile-instrument-p "ccl;output:" "duot"
  50.   bass
  51.   perc
  52. )
  53.